home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol117 / general.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-15  |  18.4 KB  |  550 lines
  1. 10  REM Documentation for the Genealogy ON DISPLAY Programs
  2. 20  REM All data is in the form of DATA statements.
  3. 30  REM By:  Melvin O. Duke.  Updated December 1984.
  4. 40  DATA Genealogy
  5. 50  DATA User's Manual
  6. 60  DATA -5
  7. 70  DATA 1
  8. 80  INDENT = 0
  9. 90  DASHES$ = "+"+STRING$(54,45)+"+"
  10. 100  TRIM.LINE$ = "(Trim-line)"
  11. 110  REM Program begins here
  12. 120  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  13. 130  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  14. 140  GOSUB 500  'For trim line and heading space
  15. 150  FOR I = 1 TO 6 : LPRINT : NEXT I
  16. 160  LPRINT CHR$(14);  'Set Expanded Print
  17. 170  LPRINT TAB(TAB.POS-2);TITLE$
  18. 180  LPRINT CHR$(18);  'Return to normal
  19. 190  FOR I = 1 TO 3 : LPRINT : NEXT I
  20. 200  LPRINT CHR$(27); "E"; 'Set Emphasized mode
  21. 210  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  22. 220  LPRINT CHR$(27); "F"; 'Return to normal
  23. 222  LPRINT : LPRINT : LPRINT
  24. 224  LPRINT TAB(TAB.POS+11);"Version 3.0"
  25. 230  FOR I = 1 TO 11 : LPRINT : NEXT I
  26. 240  LPRINT TAB(TAB.POS+10); DOC.NAME$
  27. 250  LINE.NO = LINE.NO + 27
  28. 260  '
  29. 270  READ REPLY$
  30. 280  IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
  31. 290  IF LINE.NO > 44 THEN GOSUB 610
  32. 300  REM Print the line if not a command
  33. 303  REM First, change tildes to quotes
  34. 304  FOR Q = 1 TO LEN(REPLY$)
  35. 305   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  36. 306  NEXT Q
  37. 310  LPRINT TAB(TAB.POS);REPLY$
  38. 320  LINE.NO = LINE.NO + 1
  39. 330  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  40. 340  GOTO 270
  41. 350  REM Data for the Copyright Page
  42. 354  DATA ".pa"
  43. 358  DATA "Anyone may request a copy of these"
  44. 362  DATA "programs by sending a blank, double-"
  45. 366  DATA "sided, double-density diskette to the"
  46. 370  DATA "author of the programs."
  47. 378  DATA ".sp"
  48. 382  DATA "An addressed, postage-paid return"
  49. 386  DATA "mailer must accompany the diskette (no"
  50. 390  DATA "exceptions, please).
  51. 394  DATA ".sp"
  52. 398  DATA "A copy of the programs with documenta-"
  53. 402  DATA "tion will be sent by return mail."
  54. 410  DATA ".vt 2"
  55. 415  DATA "Users are encouraged to copy and share"
  56. 420  DATA "the programs with others."
  57. 430  DATA ".vt 6"
  58. 434  DATA "If you are using these programs, and"
  59. 438  DATA "finding them of value, your contribution"
  60. 442  DATA "($35 suggested) will be anticipated."
  61. 446  DATA ".sp"
  62. 450  DATA "Melvin O. Duke"
  63. 454  DATA "P. O. Box 20836"
  64. 458  DATA "San Jose, CA  95160"
  65. 462  DATA ".vt 4"
  66. 466  DATA "Copyright (c) 1983, 1984, 1985, by:"
  67. 470  DATA "Melvin O. Duke."
  68. 474  DATA ".sp"
  69. 478  DATA "All rights reserved."
  70. 482  '
  71. 500  REM Top of each page routine
  72. 510  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  73. 520  LPRINT
  74. 530  LPRINT TAB(30); TRIM.LINE$
  75. 540  LPRINT DASHES$ 'Dashes
  76. 550  FOR I = 1 TO 6
  77. 560   LPRINT
  78. 570  NEXT I
  79. 580  LINE.NO = LINE.NO + 6
  80. 590  RETURN
  81. 600  '
  82. 610  REM Bottom of each page Routine
  83. 620  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
  84. 630  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  85. 640  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 3.0" 'on line 47
  86. 650  IF PAGE.NO MOD 2 = 1 THEN 690
  87. 660  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 670  LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 680  GOTO 740
  90. 690  LPRINT TAB(TAB.POS); "User's Manual";
  91. 700  IF PAGE.NO < 10 THEN DELTA = 34
  92. 710  IF PAGE.NO >  9 THEN DELTA = 33
  93. 720  IF PAGE.NO > 99 THEN DELTA = 32
  94. 730  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  95. 740  LPRINT : LPRINT : LPRINT
  96. 750  LPRINT DASHES$ 'dashes after 51
  97. 760  LPRINT TAB(30); TRIM.LINE$
  98. 770  LPRINT CHR$(12);
  99. 780  PAGE.NO = PAGE.NO + 1
  100. 790  LINE.NO = 1
  101. 800  IF REPLY$ = ".eof" THEN 820  'Bypass after last page
  102. 810  GOSUB 500  'For top of next page
  103. 820  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  104. 830  RETURN
  105. 840  '
  106. 850  REM Command Processor
  107. 860  IF LEFT$(REPLY$,3) = ".h1" THEN 960
  108. 870  IF LEFT$(REPLY$,3) = ".h2" THEN 1100
  109. 880  IF LEFT$(REPLY$,3) = ".h3" THEN 1210
  110. 890  IF LEFT$(REPLY$,3) = ".sp" THEN 1320
  111. 900  IF LEFT$(REPLY$,4) = ".eof" THEN 1370
  112. 910  IF LEFT$(REPLY$,3) = ".pa" THEN 1410
  113. 915  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 920  IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  115. 930  IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  116. 940  IF LEFT$(REPLY$,3) = ".in" THEN 1720
  117. 950  STOP
  118. 960  REM Head 1 Processor
  119. 970  FOR I = LINE.NO TO 44
  120. 980   LPRINT
  121. 990  NEXT I
  122. 1000  GOSUB 610  'Bottom of page Routine
  123. 1010  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  124. 1020  LPRINT CHR$(14);  'Set expanded print
  125. 1030  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  126. 1040  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  127. 1050  LPRINT CHR$(18);  'Return to normal
  128. 1060  LINE.NO = LINE.NO+1
  129. 1070  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1080  RETURN
  131. 1090  '
  132. 1100  REM Head 2 Processor
  133. 1110  IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  134. 1120  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1130  LPRINT CHR$(27); "E"; 'Set emphasized print
  136. 1140  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1150  LPRINT CHR$(27); "F"; 'Return to normal
  138. 1160  LPRINT
  139. 1170  LINE.NO = LINE.NO + 2
  140. 1180  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1190  RETURN
  142. 1200  '
  143. 1210  REM Head 3 Processor
  144. 1220  IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  145. 1230  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1240  LPRINT CHR$(27); "E"; 'Set emphasized print
  147. 1250  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1260  LPRINT CHR$(27); "F"; 'Return to normal
  149. 1270  LPRINT
  150. 1280  LINE.NO = LINE.NO + 2
  151. 1290  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1300  RETURN
  153. 1310  '
  154. 1320  REM Single Space Processor
  155. 1330  IF LINE.NO = 7 THEN 1350
  156. 1340  IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1350  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1360  RETURN
  159. 1370  REM End of File Processor
  160. 1380  GOSUB 1410 'Bottom of Page
  161. 1390  LPRINT CHR$(12);
  162. 1400  GOTO 5510
  163. 1410  REM Page Eject Processor
  164. 1420  FOR I = LINE.NO TO 44
  165. 1430   LPRINT
  166. 1440   LINE.NO = LINE.NO + 1
  167. 1450  NEXT I
  168. 1460  GOSUB 610  'Bottom of Page Processing
  169. 1470  RETURN
  170. 1480  REM Vertical Tab Processor
  171. 1490  IF LINE.NO = 7 THEN 1580
  172. 1500  IF LINE.NO > 44 THEN GOSUB 610  'End of page
  173. 1510  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  174. 1520  FOR I = 1 TO QTY
  175. 1530   LPRINT
  176. 1540   LINE.NO = LINE.NO + 1
  177. 1550   IF LINE.NO > 44 THEN I = QTY
  178. 1560  NEXT I
  179. 1570  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 1580  RETURN
  181. 1590  REM Pack Processor
  182. 1600  IF LINE.NO > 44 THEN GOSUB 610
  183. 1610  IF TAB.POS = 8 THEN ADJUST = 4
  184. 1620  IF TAB.POS = 13 THEN ADJUST = 7
  185. 1630  TAB.POS = TAB.POS + ADJUST + INDENT
  186. 1640  LPRINT CHR$(15); 'Packed printing
  187. 1650  WIDTH "lpt1:", 132 'set condensed width
  188. 1660  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  189. 1670  LPRINT CHR$(18); 'Return to normal
  190. 1680  WIDTH "lpt1:", 80  'return to normal
  191. 1690  LINE.NO = LINE.NO + 1
  192. 1700  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  193. 1710  RETURN
  194. 1720  REM Indent Processor
  195. 1730  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  196. 1740  RETURN
  197. 2000  DATA ".h1 GENERAL INFORMATION"
  198. 2010  DATA ".pn 9"
  199. 2020  DATA ".h2 DESCRIPTION OF FUNCTIONS"
  200. 2030  DATA ".h3 File Creation."
  201. 2040  DATA "Programs are provided to permit the user"
  202. 2050  DATA "to create one data file which contains"
  203. 2060  DATA "information about persons, another data"
  204. 2070  DATA "file which contains information about"
  205. 2080  DATA "marriages, and a third data file which"
  206. 2090  DATA "contains information about ordinances."
  207. 2100  DATA ".h3 File Maintenance."
  208. 2110  DATA "Programs are provided for the maintenance"
  209. 2120  DATA "of the three data files.  The user is free"
  210. 2130  DATA "to change any information, or to add new"
  211. 2140  DATA "information at any time."
  212. 2150  DATA ".h3 File Indexes."
  213. 2160  DATA "Programs are provided for the creation"
  214. 2170  DATA "of two indexes, one of which relates"
  215. 2180  DATA "parents and their children, and the other"
  216. 2190  DATA "which relates persons by marriage."
  217. 2200  DATA ".pa"
  218. 2210  DATA ".h3 Summary Lists."
  219. 2220  DATA "Programs are provided which will produce"
  220. 2230  DATA "summary lists of the records in the file"
  221. 2240  DATA "which contain the personal information,"
  222. 2250  DATA "or of the records in the file which con-"
  223. 2260  DATA "tain the marriages information."
  224. 2270  DATA ".h3 Detailed Data."
  225. 2280  DATA "One program is provided which will print"
  226. 2290  DATA "either individual records or the entire"
  227. 2300  DATA "contents of the Persons File, together"
  228. 2310  DATA "with the Ordinances File.  A second"
  229. 2320  DATA "program is provided which will print"
  230. 2330  DATA "either individual records or the entire"
  231. 2340  DATA "contents of the Marriages File."
  232. 2350  DATA ".h3 Displaying the Genealogy"
  233. 2360  DATA "Once the data files are as complete as"
  234. 2370  DATA "possible, and the indexes have been"
  235. 2380  DATA "created, then the 'Display the Genealogy'"
  236. 2390  DATA "program 'display' can be used to display"
  237. 2400  DATA "the information about a person (including"
  238. 2410  DATA "personal information and church-related"
  239. 2420  DATA "information), an ancestral pedigree, or"
  240. 2430  DATA "the information about a family."
  241. 2440  DATA ".pa
  242. 2450  DATA ".h3 Printing Pedigree Charts"
  243. 2460  DATA "Once the data files are as complete as"
  244. 2470  DATA "possible, and the indexes have been"
  245. 2480  DATA "created, then the Pedigree Program"
  246. 2490  DATA "'pedigree' can be used to print the"
  247. 2500  DATA "pedigree chart for any person who is"
  248. 2510  DATA "identified by the user."
  249. 2520  DATA ".h3 Printing Family Group Sheets"
  250. 2530  DATA "Once the data files are as complete as"
  251. 2540  DATA "possible, and the indexes have been"
  252. 2550  DATA "created, then the Family Group Program"
  253. 2560  DATA "'family' can be used to print the"
  254. 2570  DATA "family group sheet for any marriage"
  255. 2580  DATA "which is identified by the user."
  256. 2590  DATA ".h3 Producing Descendents Charts"
  257. 2600  DATA "Once the data files are as complete as"
  258. 2610  DATA "possible, and the indexes have been"
  259. 2620  DATA "created, then the Descendents Chart"
  260. 2630  DATA "Program 'descend' can be used to"
  261. 2640  DATA "display (and optionally print) a"
  262. 2650  DATA "descendents chart for any person who"
  263. 2655  DATA "is identified by the user."
  264. 2660  DATA ".pa"
  265. 2670  DATA ".h2 DEFINITION OF TERMS"
  266. 2680  DATA ".h3 Personal Information."
  267. 2690  DATA "Personal information is that information"
  268. 2700  DATA "that is unique to a person.  It includes"
  269. 2710  DATA "the persons name, his date of birth, the"
  270. 2720  DATA "location of his birth, and his parents."
  271. 2730  DATA "It also contains (if appropriate) the"
  272. 2740  DATA "same type of information about a person's"
  273. 2750  DATA "death and burial."
  274. 2760  DATA ".h3 Pedigree Information."
  275. 2770  DATA "Pedigree information is that information"
  276. 2780  DATA "which shows the parents, grandparents,"
  277. 2790  DATA "etc., about a person.  It includes the"
  278. 2800  DATA "direct ancestry of the person."
  279. 2810  DATA ".h3 Family Group Information."
  280. 2820  DATA "Family group information is that informa-"
  281. 2830  DATA "tion about a marriage, and the children"
  282. 2840  DATA "of the marriage.  It includes the location"
  283. 2850  DATA "and date of the marriage, as well as"
  284. 2860  DATA "birth-dates, birth-places, and other in-"
  285. 2870  DATA "formation about the children, such as"
  286. 2880  DATA "marriage dates, and names of the spouse"
  287. 2890  DATA "of each child."
  288. 2900  DATA ".pa"
  289. 2910  DATA ".h3 Descendents Information."
  290. 2920  DATA "Descendents information is that informa-"
  291. 2930  DATA "tion about the a person, that person's"
  292. 2940  DATA "marriages, that person's children, the"
  293. 2950  DATA "marriages of those children, the child-"
  294. 2960  DATA "ren of those children, etc., etc."
  295. 2970  DATA ".sp"
  296. 2980  DATA "It includes references to each person's"
  297. 2990  DATA "number, each birthdate, and the date of"
  298. 3000  DATA "each marriage."
  299. 3010  DATA ".h2 Ordinance Information."
  300. 3020  DATA "Ordinance information is information"
  301. 3030  DATA "about (LDS) church-related events in a"
  302. 3040  DATA "person's life."
  303. 3050  DATA ".pa"
  304. 3060  DATA ".h2 EXPLANATION OF GENERAL CONCEPTS"
  305. 3070  DATA "Genealogy is concerned with information"
  306. 3080  DATA "about any number of direct ancestors,"
  307. 3090  DATA "reaching backward as many generations"
  308. 3100  DATA "as possible.  It is also concerned with"
  309. 3110  DATA "family groups, with spouses, and with"
  310. 3120  DATA "children within the family groups."
  311. 3130  DATA ".sp"
  312. 3140  DATA "Keeping track of the broad and varied"
  313. 3150  DATA "relationships is a tedious manual task."
  314. 3160  DATA ".sp"
  315. 3170  DATA "Genealogy ON DISPLAY provides the basis"
  316. 3180  DATA "for recording and relating these varied"
  317. 3190  DATA "relationships by utilizing two data"
  318. 3200  DATA "files and two indexes.  The first data"
  319. 3210  DATA "file contains information about persons."
  320. 3220  DATA "The second data file contains informa-"
  321. 3230  DATA "tion about marriages.  The first index"
  322. 3240  DATA "relates parents and their children."
  323. 3250  DATA "The second index relates people with"
  324. 3260  DATA "marriages."
  325. 3270  DATA ".sp"
  326. 3280  DATA "With these two files, and two indexes,"
  327. 3290  DATA "Genealogy ON DISPLAY is able to"
  328. 3300  DATA "associate every person with every other"
  329. 3310  DATA "person, both with parent/child rela-"
  330. 3320  DATA "tionships, and with husband/wife"
  331. 3330  DATA "relationships."
  332. 3340  DATA ".sp"
  333. 3350  DATA "A third data file contains additional"
  334. 3360  DATA "personal information which is church-"
  335. 3370  DATA "related.  It contains all of the LDS"
  336. 3380  DATA "ordinance information about a person."
  337. 3390  DATA ".pa"
  338. 3400  DATA ".h3 persfile"
  339. 3410  DATA "The first data file, named 'persfile',"
  340. 3420  DATA "contains all of the personal information"
  341. 3430  DATA "about an individual.  It also contains a"
  342. 3440  DATA "reference to that person's father and"
  343. 3450  DATA "mother.  Its format and content are:"
  344. 3460  DATA ".sp"
  345. 3470  DATA "Size  Content"
  346. 3480  DATA "----  --------------------------"
  347. 3490  DATA "  5   Record Number for a Person"
  348. 3500  DATA " 20   Surname of person"
  349. 3510  DATA " 30   Given names of person"
  350. 3520  DATA "  2   Sex"
  351. 3530  DATA "  5   Code"
  352. 3540  DATA "  5   Father's Record Number"
  353. 3550  DATA "  5   Mother's Record Number"
  354. 3560  DATA " 11   Birth-date of person"
  355. 3570  DATA " 18   Birth-city"
  356. 3580  DATA " 16   Birth-county"
  357. 3590  DATA " 16   Birth-state or country"
  358. 3600  DATA " 11   Death-date"
  359. 3610  DATA " 18   Death-city"
  360. 3620  DATA " 16   Death-county"
  361. 3630  DATA " 16   Death-state or country"
  362. 3640  DATA " 11   Burial-date"
  363. 3650  DATA " 18   Burial-city"
  364. 3660  DATA " 16   Burial-county"
  365. 3670  DATA " 16   Burial-state or country"
  366. 3680  DATA ".sp"
  367. 3690  DATA "Note: Code is available to the user"
  368. 3700  DATA "for any special user identification,"
  369. 3710  DATA "such as differentiating between"
  370. 3720  DATA "natural parents and adoptive parents."
  371. 3730  DATA "It is unused by the programs."
  372. 3740  DATA ".pa"
  373. 3750  DATA ".h3 marrfile"
  374. 3760  DATA "The second data file, named 'marrfile',"
  375. 3770  DATA "contains all of the records of marriages."
  376. 3780  DATA "Its contents are as follows:"
  377. 3790  DATA ".sp"
  378. 3800  DATA "Size  Content"
  379. 3810  DATA "----  --------------------------"
  380. 3820  DATA "  5   Record Number of the Marriage"
  381. 3830  DATA "  5   Husband's Record-number"
  382. 3840  DATA "  5   Wife's Record-number"
  383. 3850  DATA "  5   Code"
  384. 3860  DATA " 11   Marriage-date"
  385. 3870  DATA " 18   Marriage-city"
  386. 3880  DATA " 16   Marriage-county"
  387. 3890  DATA " 16   Marriage-state or country"
  388. 3900  DATA " 45   Comments"
  389. 3910  DATA ".sp"
  390. 3920  DATA "Note: Code is available to the user"
  391. 3930  DATA "for any special user identification,"
  392. 3940  DATA "such as differentiating between"
  393. 3950  DATA "first and second marriage of spouses."
  394. 3960  DATA "It is unused by the programs."
  395. 3970  DATA ".pa
  396. 3980  DATA ".h3 pcindex"
  397. 3990  DATA "The first index, named 'pcindex',"
  398. 4000  DATA "provides the relationships between"
  399. 4010  DATA "parents and children.  It contains:"
  400. 4020  DATA ".sp"
  401. 4030  DATA "The Number of Records in the Index."
  402. 4040  DATA ".sp"
  403. 4050  DATA "For each index record:"
  404. 4060  DATA "Parent's Record-number, and Child's"
  405. 4070  DATA "Record-number."
  406. 4080  DATA ".sp"
  407. 4090  DATA "Note:  Index records are in sequence"
  408. 4100  DATA "by Child's Birthdate within Parent's"
  409. 4110  DATA "Record-number."
  410. 4120  DATA ".h3 mindex"
  411. 4130  DATA "The second index, named 'mindex',"
  412. 4140  DATA "provides the relationships between"
  413. 4150  DATA "husbands and wives.  It contains:"
  414. 4160  DATA ".sp"
  415. 4170  DATA "The Number of Records in the Index."
  416. 4180  DATA ".sp"
  417. 4190  DATA "For each index record:"
  418. 4200  DATA "Person's Record-number in the Person's"
  419. 4210  DATA "File, followed by the Marriage-number"
  420. 4220  DATA "within the Marriage-file."
  421. 4230  DATA ".sp"
  422. 4240  DATA "Note:  Index records are in sequence"
  423. 4250  DATA "by Marriage-date within the Person's"
  424. 4260  DATA "Record-number."
  425. 4270  DATA ".pa"
  426. 4280  DATA ".h3 ordfile"
  427. 4290  DATA "The third data file, named 'ordfile'"
  428. 4300  DATA "contains all (LDS) church-related"
  429. 4310  DATA "information about an individual,"
  430. 4320  DATA "including all of the ordinance infor-"
  431. 4330  DATA "mation.  Its contents are as follows:"
  432. 4340  DATA "Size  Content"
  433. 4350  DATA "----  --------------------------"
  434. 4360  DATA "  5   Record Number for a Person"
  435. 4370  DATA " 11   Christening Date"
  436. 4380  DATA " 11   Blessing Date"
  437. 4390  DATA " 11   Sealed to Parents Date"
  438. 4400  DATA "  5   Father's Record Number"
  439. 4410  DATA "  5   Mother's Record Number"
  440. 4420  DATA " 11   Baptism Date"
  441. 4430  DATA " 11   Confirmation Date"
  442. 4440  DATA " 11   Patriarchical Blessing Date"
  443. 4450  DATA " 11   Endowment Date"
  444. 4460  DATA " 11   Sealed to Spouse Date"
  445. 4470  DATA "  5   Spouse's Record Number"
  446. 4480  DATA " 11   Aaronic Priesthood Date"
  447. 4490  DATA " 11   Deacon Date"
  448. 4500  DATA " 11   Teacher Date"
  449. 4510  DATA " 11   Priest Date"
  450. 4520  DATA " 11   Melchizedek Priesthood Date"
  451. 4530  DATA " 11   Elder Date"
  452. 4540  DATA " 11   Seventy Date"
  453. 4550  DATA " 11   High Priest Date"
  454. 4560  DATA " 11   Bishop Date"
  455. 4570  DATA " 11   Patriarch Date"
  456. 4580  DATA " 11   Apostle Date"
  457. 4590  DATA " 26   Occupation"
  458. 4600  DATA ".pa"
  459. 4610  DATA ".h3 Relationships."
  460. 4620  DATA "Because of the relationships carried"
  461. 4630  DATA "within the Persons File, pedigree"
  462. 4640  DATA "information may be associated backward"
  463. 4650  DATA "for any number of generations.  There"
  464. 4660  DATA "is no specific limit to the number of"
  465. 4670  DATA "generations that the Genealogy ON"
  466. 4680  DATA "DISPLAY programs will handle."
  467. 4690  DATA ".sp"
  468. 4700  DATA "Because of the indexes, which relate"
  469. 4710  DATA "parents with their children, coupled"
  470. 4720  DATA "with the information in the Marriages"
  471. 4730  DATA "File, and the index to that file, it"
  472. 4740  DATA "is possible to relate any number of"
  473. 4750  DATA "persons together in families, showing"
  474. 4760  DATA "them in accordance with their date of"
  475. 4770  DATA "birth."
  476. 4780  DATA ".sp"
  477. 4790  DATA "(Note: there is no specific limit to"
  478. 4800  DATA "the number of families that the"
  479. 4810  DATA "Genealogy ON DISPLAY programs will"
  480. 4820  DATA "handle, other than the total number"
  481. 4830  DATA "of marriages defined.)
  482. 4840  DATA ".pa"
  483. 4850  DATA ".h2 BEFORE YOU START"
  484. 4860  DATA ".h3 List of Persons"
  485. 4870  DATA "Begin by making a numbered list, which"
  486. 4880  DATA "contains the people who will be in your"
  487. 4890  DATA "Persons File."
  488. 4900  DATA ".sp"
  489. 4910  DATA "This may look somewhat like:"
  490. 4920  DATA ".sp"
  491. 4930  DATA "No.  Surname      Given-Names"
  492. 4940  DATA "---  -----------  -----------"
  493. 4950  DATA "  1  ABLE         Melvin Otto"
  494. 4960  DATA "  2  LOVELY       Helen Lillian"
  495. 4970  DATA "  3  ABLE         Melvin Kent"
  496. 4980  DATA "  4  ABLE         Ronald Robert"
  497. 4990  DATA "  5  ABLE         Carolyn Elizabeth"
  498. 5000  DATA "  6  ABLE         Linda Ann"
  499. 5010  DATA "  7  ABLE         Otto"
  500. 5020  DATA "  8  BAKER        Beatrice"
  501. 5030  DATA "etc.  etc.         etc."
  502. 5040  DATA ".pa"
  503. 5050  DATA "Now go back and add the number which you"
  504. 5060  DATA "have assigned, which represents each"
  505. 5070  DATA "person's father and mother, such as:"
  506. 5080  DATA ".sp"
  507. 5090  DATA ".pk No.  Surname      Given-Names        Father  Mother"
  508. 5100  DATA ".pk ---  -----------  -----------        ------  ------"
  509. 5110  DATA ".pk   1  ABLE         Melvin Otto           7       8"
  510. 5120  DATA ".pk   2  LOVELY       Helen Lillian"
  511. 5130  DATA ".pk   3  ABLE         Melvin Kent           1       2"
  512. 5140  DATA ".pk   4  ABLE         Ronald Robert         1       2"
  513. 5150  DATA ".pk   5  ABLE         Carolyn Elizabeth     1       2"
  514. 5160  DATA ".pk   6  ABLE         Linda Ann             1       2"
  515. 5170  DATA ".pk   7  ABLE         Otto"
  516. 5180  DATA ".pk   8  BAKER        Beatrice"
  517. 5190  DATA ".pk etc.  etc.         etc.                etc.    etc."
  518. 5200  DATA ".sp"
  519. 5210  DATA "Note:  This is your master list of"
  520. 5220  DATA "persons. It will continue to grow as you"
  521. 5230  DATA "add more and more names.  After you have"
  522. 5240  DATA "updated the Persons File with these"
  523. 5250  DATA "people, you can produce the list by"
  524. 5260  DATA "selecting the 'listper' program to"
  525. 5270  DATA "be run."
  526. 5280  DATA ".pa"
  527. 5290  DATA ".h3 List of Marriages"
  528. 5300  DATA "Now make a second numbered list.  Enter"
  529. 5310  DATA "the record-numbers of the persons who"
  530. 5320  DATA "are married.  This may appear as:"
  531. 5330  DATA ".sp"
  532. 5340  DATA "Marriage     Husband's   Wife's"
  533. 5350  DATA "Number       Record-no.  Record-no."
  534. 5360  DATA "--------     ----------  ----------"
  535. 5370  DATA "  1            1           2"
  536. 5380  DATA "  2            7           8"
  537. 5390  DATA " etc.         etc.        etc."
  538. 5400  DATA ".sp"
  539. 5410  DATA "If you find it convenient, you may also"
  540. 5420  DATA "want to include names in this list."
  541. 5430  DATA ".sp"
  542. 5440  DATA "Note:  This is your master list of"
  543. 5450  DATA "marriages. It will continue to grow as"
  544. 5460  DATA "you add more and more marriages.  After"
  545. 5470  DATA "you have updated the Marriages File,"
  546. 5480  DATA "you can produce the list by selecting"
  547. 5490  DATA "the 'listmar' program to be run."
  548. 5500  DATA ".eof"
  549. 5510  END
  550.